100 REM *** ULTRAMENUE TOOL
110 REM *** 1992 MARTIN PFOST
120 REM *** (C) 1992 HEUREKA TEACHWARE
130 INPUT "	==> [198]ILENAME ";N$
140 INPUT "==> [211]TARTADRESSE ";A:H=INT(A/256):L=A-256*H
150 PRINT "==> ENTSPRECHENDE [196]ISKETTE EINLEGEN !":POKE 198,0:WAIT 198,1
160 OPEN 2,8,2,N$
170 GET#2,A$:IF A$="" THEN A$=CHR$(0)
180 GET#2,B$:IF B$="" THEN B$=CHR$(0)
190 PRINT " [193]NFANGSADRESSE DES [198]ILES :";ASC(A$)+256*ASC(B$):CLOSE 2
200 OPEN 2,8,2,"BT,P,W":GOSUB 240:PRINT#2,A$;:GOSUB 240
210 PRINT#2,B$;:GOSUB 240:PRINT#2,CHR$(L);CHR$(H);CHR$(96);
220 CLOSE 2:IF C<>8466 THEN PRINT "??? [196]ATA-[198]EHLER !":STOP
230 OPEN 1,8,15,"C:."+N$+"=BT,"+N$:PRINT#1,"S:BT":CLOSE 1:END
240 READ D:IF D=4 THEN RETURN
250 PRINT#2,CHR$(D);:C=C+D:GOTO 240
260 REM *** VERSCHIEBEROUTINE
270 DATA1,8,12,8,194,7,158,32,50,48,54,50,0,0,0,169,76,133,168,169,8,133,169
280 DATA169,4,133,170,169,4,133,171,160,0,177,168,145,170,230,168,208
290 DATA2,230,169,230,170,208,2,230,171,165,168,197,45,208,234,165,169,197
300 DATA46,144,228,172,78,3,185,255,1,41,16,240,3,76,4